home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / mdtls125.lha / Install ModUtils next >
Text File  |  1995-08-01  |  2KB  |  60 lines
  1. (
  2.     (set InstallChoices
  3.     (askoptions
  4.         (prompt "\nPlease select which parts of ModUtils you would like to install:\n")
  5.         (help
  6.         (cat
  7.             "ModPlay plays Protracker and compatible music modules.\n"
  8.             "ModAlloc, ModRip etc are used for extracting music modules from games and demos.\n"
  9.             "ModUtils.doc provides documentation for these programs.\n"
  10.             "ModUtils.guide provides documentation in AmigaGuide format.\n"
  11.             "For more information, read ModUtils.doc/guide.\n"
  12.             @askoptions-help
  13.         )
  14.         )
  15.         (choices "ModPlay" "MakeRipperDisk, ModAlloc, ModRip and ModWipe" "ModUtils.doc" "ModUtils.guide")
  16.         (default 11)
  17.     )
  18.     )
  19.  
  20.     (set @default-dest
  21.     (askdir
  22.         (prompt "Select the directory to install the chosen programs to:")
  23.         (help @askdir-help)
  24.         (default "")
  25.     )
  26.     )
  27.  
  28.     (if (bitand InstallChoices 1)
  29.     (
  30.         (copyfiles (source "ModPlay") (dest @default-dest))
  31.         (copyfiles (source "ModPlay.info") (dest @default-dest))
  32.         (copylib (source "reqtools.library") (dest "LIBS:"))
  33.     )
  34.     )
  35.     (if (bitand InstallChoices 2)
  36.     (
  37.         (copyfiles (source "MakeRipperDisk") (dest @default-dest))
  38.         (copyfiles (source "MakeRipperDisk.info") (dest @default-dest))
  39.         (copyfiles (source "ModAlloc") (dest @default-dest))
  40.         (copyfiles (source "ModAlloc.info") (dest @default-dest))
  41.         (copyfiles (source "ModRip") (dest @default-dest))
  42.         (copyfiles (source "ModRip.info") (dest @default-dest))
  43.         (copyfiles (source "ModWipe") (dest @default-dest))
  44.         (copyfiles (source "ModWipe.info") (dest @default-dest))
  45.     )
  46.     )
  47.     (if (bitand InstallChoices 4)
  48.     (
  49.         (copyfiles (source "ModUtils.doc") (dest @default-dest))
  50.         (copyfiles (source "ModUtils.doc.info") (dest @default-dest))
  51.     )
  52.     )
  53.     (if (bitand InstallChoices 8)
  54.     (
  55.         (copyfiles (source "ModUtils.guide") (dest @default-dest))
  56.         (copyfiles (source "ModUtils.guide.info") (dest @default-dest))
  57.     )
  58.     )
  59. )
  60.